﻿Public Class Birthday

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Ngày sinh của bạn là: " & DateTimePicker1.Text)
        MsgBox("Ngày trong năm: " & DateTimePicker1.Value.DayOfYear.ToString)
        MsgBox("Hôm nay là ngày: " & Now.ToString)
    End Sub

    Private Sub Birthday_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
